Apple II Magazines (PO)/Nibble Volume 10, No. 11 (1989-11)(MindCraft Publishing)(Side A).zip/Nibble Volume 10, No. 11 (1989-11)(MindCraft Publishing)(Side A).po/ROBOT.CATCH.bas

BASIC Source File | 1996-12-24 | 634b | 2 lines

10  POKE 49246,0: GR : COLOR= 6: FOR I = 0 TO 28: HLIN 0,79 AT I: NEXT : COLOR= 12: FOR I = 29 TO 39: HLIN 0,79 AT I: NEXT : COLOR= 5: FOR I = 1 TO 9: READ B,E,L: VLIN B,E AT L: VLIN B,E AT 79 -L: NEXT :B = 7:E = 72:S = 1: DATA 19,21,1,23,25,1,19,28,2,19,21,3,23,25,3,23,23,4,22,22,5,21,21,6,28,28,3
20 Y = 21:F =  RND(9):P = (F <.65)/2 *S: FOR T = B TO E  STEP S +F *4 *S *(F >.5): COLOR= 15: PLOT T,Y: COLOR= 6: PRINT : PRINT : PLOT T,Y:Y = Y +(T >38) *P -(T <41) *P: NEXT :T = E +S:Y = 21: PLOT T,Y: COLOR= 5: PLOT T +S,Y: FOR D = 1 TO 9/(F/2) +P: NEXT : COLOR= 6: PLOT T +S,Y: COLOR= 5: PLOT T,Y:A = B:B = E:E = A:S =  -S: GOTO 20